COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL RPTR(SCALAR,VECTOR,ROT,TRANS,FRAME) PROCEDURE MK_REC(INTEGER TYPE)
C00010 ENDMK
C⊗;
EXTERNAL RPTR(SCALAR,VECTOR,ROT,TRANS,FRAME) PROCEDURE MK_REC(INTEGER TYPE);
EXTERNAL RPTR(TREE) PROCEDURE DCDSYM(STRING SYMB);
EXTERNAL SIMPLE  STRING PROCEDURE STR_VT(REAL X,Y,Z; INTEGER NUM(1));
EXTERNAL STRING PROCEDURE STR_TR(REAL ARRAY XF; INTEGER ROT(1),VECT(1));
EXTERNAL STRING PROCEDURE STR_RT(REAL ARRAY XF; INTEGER NUM(1));  

EXTERNAL SIMPLE  PROCEDURE INVXFX(REAL ARRAY A,B,C);
EXTERNAL SIMPLE  PROCEDURE XFINV(REAL ARRAY A,B);
EXTERNAL SIMPLE  PROCEDURE XFXF(REAL ARRAY A,B,C);
EXTERNAL SIMPLE  PROCEDURE XFVT(REAL ARRAY A,B,C);
EXTERNAL PROCEDURE DECODE (REAL ARRAY XF; REFERENCE REAL A,B,C);
EXTERNAL PROCEDURE EULERO(REAL ARRAY XF;REFERENCE REAL W,PH,TH);
EXTERNAL SIMPLE  PROCEDURE XYZROT(REAL ARRAY XF; REAL ANGLE,CX,CY,CZ);
EXTERNAL SIMPLE  PROCEDURE SETROT(REAL ARRAY XF;REAL W,PH,TH);

EXTERNAL RPTR(ROT)PROCEDURE RMAKE(RPTR(VECTOR)AX;RPTR(SCALAR)ANGLE);
EXTERNAL RPTR(FRAME) PROCEDURE FMAKE(RPTR(ROT)TMPRT;RPTR(VECTOR)TMPVT);
EXTERNAL RPTR(TRANS) PROCEDURE TMAKE(RPTR(ROT)TMPRT;RPTR(VECTOR)TMPVT);
EXTERNAL RPTR(VECTOR) PROCEDURE VMAKE(RPTR(SCALAR)R1,R2,R3);
EXTERNAL RPTR (FRAME)PROCEDURE CONSF(RPTR(FRAME)F1,F2,F3);
EXTERNAL RPTR (FRAME)PROCEDURE CONSV(RPTR(VECTOR)F1,F2,F3);
EXTERNAL RPTR(VECTOR) PROCEDURE NORMVT(RPTR(VECTOR)EL);
EXTERNAL RPTR(VECTOR) PROCEDURE NMSUB(RPTR(VECTOR) V1,V2);
EXTERNAL RPTR(VECTOR) PROCEDURE NMCROS(RPTR(VECTOR)V1,V2);
EXTERNAL SIMPLE  PROCEDURE GETVTV(RPTR(VECTOR) EL; REAL ARRAY COMP);
EXTERNAL SIMPLE  PROCEDURE PUTVTV (RPTR(VECTOR) EL; REAL ARRAY COMP);
EXTERNAL PROCEDURE LINKFR(RPTR(FRAME) N,D);	
EXTERNAL PROCEDURE UNLINK(RPTR(FRAME) N);
EXTERNAL RPTR(ROT)PROCEDURE RTRTOP(RPTR(ROT)R1,R2);
EXTERNAL RPTR(VECTOR) PROCEDURE FPOS(RPTR(FRAME)SEC);
EXTERNAL RPTR(VECTOR) PROCEDURE TPOS(RPTR(TRANS)XFE);
EXTERNAL RPTR(ROT)PROCEDURE FORIEN(RPTR(FRAME)SEC);
EXTERNAL RPTR(SCALAR)PROCEDURE SMOD(RPTR(SCALAR)RIGHT);
EXTERNAL RPTR(SCALAR)PROCEDURE VMOD(RPTR(VECTOR)RIGHT);
EXTERNAL RPTR(VECTOR)PROCEDURE RELVT(RPTR(VECTOR) VET;RPTR(FRAME) RELFR);
EXTERNAL RPTR(VECTOR)PROCEDURE WRTVT(RPTR(VECTOR) VET;RPTR(FRAME) RELFR);
EXTERNAL RPTR(TRANS) PROCEDURE ABSLOC(RPTR(FRAME) ND);
EXTERNAL RPTR(FRAME) PROCEDURE RELFR(RPTR(FRAME)DAD;RPTR(TRANS)RELPOS);
EXTERNAL PROCEDURE ABSSET(RPTR(FRAME) FRA;RPTR(TRANS)XFE);
EXTERNAL PROCEDURE RELSET(RPTR(FRAME)FRA;RPTR(TRANS)XFE);
EXTERNAL PROCEDURE SETABS(RPTR(FRAME) N;REAL ARRAY XF);
EXTERNAL PROCEDURE ABSXF(RPTR(FRAME) N;REAL ARRAY XF);

DEFINE RANY   "<>" = <RECORD_POINTER(ANY_CLASS)>;
EXTERNAL RCLASS SYMBOL (STRING PNAME; RANY OBJECT);	

EXTERNAL RPTR(VECTOR)PROCEDURE OPSCVT(RPTR(SCALAR) NUM;RPTR(VECTOR)VAL;STRING OP);
EXTERNAL RPTR(SCALAR)PROCEDURE OPSCAL(RPTR(SCALAR)VAL1,VAL2;STRING OP);
EXTERNAL RPTR(SCALAR)PROCEDURE OPDOT(RPTR(VECTOR)VAL1,VAL2);
EXTERNAL RPTR(VECTOR)PROCEDURE OPVET(RPTR(VECTOR) VAL1,VAL2;STRING OP);
EXTERNAL RPTR(ROT)PROCEDURE OPRTRT(RPTR(ROT)VAL1,VAL2);
EXTERNAL RPTR(VECTOR)PROCEDURE OPRTVT(RPTR(ROT)VAL1;RPTR(VECTOR)VAL2);
EXTERNAL RPTR(FRAME)PROCEDURE OPFRVT(RPTR(VECTOR) VAL1;RPTR(FRAME)VAL2;STRING OP);
EXTERNAL RPTR(VECTOR) PROCEDURE OPVTFR(RPTR(FRAME) VAL1;RPTR(VECTOR)VAL2);
EXTERNAL RPTR(VECTOR)PROCEDURE OPTRVT(RPTR(TRANS)VAL1;RPTR(VECTOR)VAL2);
EXTERNAL RPTR(TRANS)PROCEDURE OPFRFR(RPTR(FRAME)VAL1,VAL2);
EXTERNAL RPTR(TRANS)PROCEDURE OPTRTR(RPTR(TRANS)VAL1,VAL2);
EXTERNAL RPTR(FRAME) PROCEDURE OPFR(RPTR(FRAME)VAL1,VAL2);
EXTERNAL RPTR(FRAME)PROCEDURE OPTRFR(RPTR(TRANS)VAL1;RPTR(FRAME)VAL2);